1 REM ***** FORMATIERTER STRING *****         ***** MADE BY A.STRANZINGER ***
2 A$="FORMATIERTE AUSGABE EINES STRINGS - IDEE VON A.STRANZINGER AM 01.10.88 "
3 AD=58732:L=LEN(A$)
4 INPUT"[147] SPALTENBEGINN   3[157][157][157]";SB
5 INPUT" SPALTENENDE     36[157][157][157][157]";SE
6 INPUT" ZEILENABSTAND   3[157][157][157]";ZA
7 PRINT"[147]0---------1---------2---------3---------":POKE211,SB:SYSAD
8 FOR A=1 TO L:B$=MID$(A$,A,1)
9 IF B$=CHR$(32)THENGOSUB12:B$=MID$(A$,A,1)
10 PRINT B$;:NEXT
11 A=0:GOSUB12:GOTO8
12 X=PEEK(211):Y=PEEK(214):P=SE-X
13 FOR B=A+1 TO L:C$=MID$(A$,B,1)
14 : IF C$=CHR$(32)THEN 16
15 NEXT
16 C=B-(A+2):IF C<P THEN POKE211,X:POKE214,Y:SYSAD:RETURN
17 IFY<20THEN20
18 POKE211,0:POKE214,23:SYSAD
19 PRINT"DRUECKEN SIE F7 FUER EIN ANDERES FORMAT ":POKE198,0:WAIT198,1:RUN
20 POKE211,SB:POKE214,Y+ZA:SYSAD:A=A+1:RETURN